#!/usr/bin/perl -w

print "enter path \n";
chomp ($path = <STDIN>);

opendir DH, $path or die "cannot open $path $! \n";
foreach (readdir DH) {
print "file is $_ \n";
}
closedir DH;



